home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #3 / Amiga Plus CD - 1998 - No. 3.iso / pd / daten / lsdbase / install next >
Text File  |  1997-09-25  |  3KB  |  124 lines
  1.  
  2. (complete 10)
  3. (set #prog_dest
  4.     (askdir
  5.         (prompt "Select the drawer where you want the lsdBase executable to be placed. A new drawer will NOT be created")
  6.         (help @askdir-help)
  7.         (default "SYS:Utilities")
  8.     )
  9. )
  10.  
  11. (complete 30)
  12. (set #doc_dest
  13.     (askdir
  14.         (prompt "Select the drawer where you want the lsdBase documentation to be placed.")
  15.         (help @askdir-help)
  16.         (default "HELP:")
  17.     )
  18. )
  19.  
  20. (complete 50)
  21. (set #diskdrawer
  22.     (askdir
  23.         (prompt "Select the drawer where your CDID's are stored.")
  24.         (help @askdir_help)
  25.         (default "Work:")
  26.     )
  27. )
  28.  
  29. (complete 70)
  30.  
  31. (set #askdev
  32.     (askbool
  33.         (prompt "Do you wish to setup lsdBase to access your CD-ROM drive (needs cdplay.library to be installed)?")
  34.         (help "lsdBase can access your CD-ROM drive through cdplay.library in order to find which CD is in the drive, and to play tracks. To be able to do this, you must tell lsdBase what SCSI device you use, and what unit number your CD-ROM drive is. If you answer yes here, the installer will ask you for this information, and set lsdBase's tooltypes for you.")
  35.     )
  36. )
  37. (if (= #askdev 1)
  38.     (set #device
  39.         (askstring
  40.             (prompt "Please enter the name of your SCSI controller's device controller")
  41.             (help @askstring-help)
  42.             (default "scsi.device")
  43.         )
  44.     )
  45. )
  46.  
  47. (complete 80)
  48. (if (= #askdev 1)
  49.     (set #unit
  50.         (askstring
  51.             (prompt "Please enter the SCSI unit of your CD-ROM drive")
  52.             (default "2")
  53.             (help @asknumber-help)
  54.         )
  55.     )
  56. )
  57.  
  58. (if (= @user-level 2)
  59.     (set #askeasyreq
  60.         (askbool
  61.             (prompt "Do you wish to use standard library calls for requesters instead of using MUI calls?")
  62.             (help "AmigaOS has a standard method of bringing up a message requester - the EasyRequest() function. MUI provides a replacement for this, which uses your MUI preferences and is better than the standard requester. However, there are a number of patch programs, such as Arq and RTPatch which patch the standard requester to make it much better - I myself run Arq. Because of this, I've put in this option. If you answer yes, lsdBase uses EasyRequest() instead of it's MUI equivelant.")
  63.         )
  64.     )
  65. )
  66.  
  67. (copyfiles
  68.     (source "lsdBase.info")
  69.     (dest #prog_dest)
  70. )
  71.  
  72. (if (patmatch "(68000|68010|68020)" (database "cpu"))
  73.     (copyfiles
  74.         (source "lsdBase")
  75.         (dest #prog_dest)
  76.     )
  77. )
  78. (if (not (patmatch "(68000|68010|68020)" (database "cpu")))
  79.     (copyfiles
  80.         (source "lsdBase030")
  81.         (dest #prog_dest)
  82.         (newname "lsdBase")
  83.     )
  84. )
  85. (copyfiles
  86.     (source "lsdBase.guide")
  87.     (dest #doc_dest)
  88.     (infos)
  89. )
  90.  
  91. (complete 90)
  92. (copyfiles
  93.     (source "Pictures")
  94.     (all)
  95.     (dest (tackon #doc_dest "Pictures"))
  96. )
  97.  
  98. (tooltype
  99.     (dest (tackon #prog_dest "lsdBase"))
  100. ;    (settooltype "(DISCDIR=location of CDID files)")
  101.     (settooltype "DISCDIR" #diskdrawer)
  102. )
  103.  
  104. (if (= #askdev 1)
  105.     (tooltype
  106.         (dest (tackon #prog_dest "lsdBase"))
  107.         ;(settooltype "(DEVICE=scsi.device)")
  108.         ;(settooltype "(UNIT=2)")
  109.         (settooltype "DEVICE" #device)
  110.         (settooltype "UNIT" #unit)
  111.     )
  112. )
  113.  
  114. (if (= #askeasyreq 1)
  115.     (tooltype
  116.         (dest (tackon #prog_dest "lsdBase"))
  117.         ;(settooltype "(EASYREQ)")
  118.         (settooltype "EASYREQ" "")
  119.     )
  120. )
  121.     
  122. (complete 100)
  123. (set @default-dest #prog_dest)
  124.